C
C  DUMMY ROUTINES FOR USE WITH TKNLIB
C
C
      SUBROUTINE POLISH (FLAG)
      LOGICAL FLAG
      FLAG =.TRUE.
      END
      SUBROUTINE INIPOL(I, J)
      INTEGER I,J
      END
